home *** CD-ROM | disk | FTP | other *** search
/ Revista do CD-ROM 101 / CD-ROM 101.iso / compl / maya5ple / Install_MayaPLE5_English.exe / Maya / Data1.cab / polySplitValues.mel < prev    next >
Encoding:
Text File  |  2003-07-17  |  2.1 KB  |  63 lines
  1. // Copyright (C) 1997-2002 Alias|Wavefront,
  2. // a division of Silicon Graphics Limited.
  3. //
  4. // The information in this file is provided for the exclusive use of the
  5. // licensees of Alias|Wavefront.  Such users have the right to use, modify,
  6. // and incorporate this code into other products for purposes authorized
  7. // by the Alias|Wavefront license agreement, without fee.
  8. //
  9. // ALIAS|WAVEFRONT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
  10. // INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
  11. // EVENT SHALL ALIAS|WAVEFRONT BE LIABLE FOR ANY SPECIAL, INDIRECT OR
  12. // CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
  13. // DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
  14. // TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  15. // PERFORMANCE OF THIS SOFTWARE.
  16. //
  17. //# this proc points the tool properties
  18. //# window to the current polySplit context
  19.  
  20. global proc polySplitValues ( string $toolName )
  21. {
  22.     string $name = "polySplit";
  23.     string $parent = (`toolPropertyWindow -q -location` + "|" + $name);
  24.     setParent $parent;
  25.  
  26.     // Subdivisions
  27.     //
  28.     intSliderGrp -e
  29.         -v `polySplitCtx -q -s $toolName`
  30.         -cc ("polySplitCtx -e -s #1 "+$toolName)
  31.         -dc ("polySplitCtx -e -s #1 "+$toolName)
  32.         subdSld;
  33.       
  34.     // Snapping To Edge
  35.     //
  36.     checkBoxGrp -e
  37.         -value1 `polySplitCtx -q -ste $toolName`
  38.         -on1 ("polySplitCtx -e -ste true  "+$toolName)
  39.         -of1 ("polySplitCtx -e -ste false "+$toolName)
  40.         snapEdgeBox;
  41.  
  42.     // Magnet Snapping
  43.     //
  44.     intSliderGrp -e
  45.         -v `polySplitCtx -q -ms $toolName`
  46.         -cc ("polySplitCtx -e -ms #1 "+$toolName)
  47.         -dc ("polySplitCtx -e -ms #1 "+$toolName)
  48.         magnetSld;
  49.     floatSliderGrp -e
  50.         -v `polySplitCtx -q -ps $toolName`
  51.         -cc ("polySplitCtx -e -ps #1 "+$toolName)
  52.         snapSld;
  53.     checkBoxGrp -e
  54.         -value1 `polySplitCtx -q -es $toolName`
  55.         -on1 ("polySplitCtx -e -es true  "+$toolName)
  56.         -of1 ("polySplitCtx -e -es false "+$toolName)
  57.         snapMagnetBox;
  58.       
  59.     string $helpTag= "SplitPolygonTool";
  60.     toolPropertySetCommon $toolName "polySplitFacet.xpm" $helpTag;
  61.     toolPropertySelect $name;
  62. }
  63.